DW R4016PIC S9(8) COMP DDW R4016PIC S9(17) COMP PACCEPT V12 PADD V12 PAND R16 PAT V12 DBLOCK R20 PBY R16 PCALL V12 PCLOSE V12 DCOMP R52 PCOMPUTE V12 COPY R12 PDEPENDING R20 DDEPENDING R40 PDISPLAY V12 PDIVIDE V12 DIVISION R PELSE V12 PEVALUATE V12 PEXIT V12 DFD R0804FD PFROM R PGIVING R40 PGO V12 PIF V1204IF PINITIALISE V12 DLABEL R20 PMOVE V12 PMULTIPLY V12 PNEXT V12 DOCCURS R40 POPEN V12 POR R16 PPERFORM V12 DPIC R40 DPICTURE R40 PREAD V12 DREDEFINES R36 PSEARCH V12 SECTION R ESELECT V12 PSET V12 PSORT V12 SPECIAL-NAMES R08 PSTRING V12 PSTOP V12 PSUBTRACT V12 PTHEN R12 PTO R PUNTIL R16 PUNSTRING V12 DUSAGE R DVALUE R54 DVALUES R54 PWHEN R20 PWRITE V12 D01 L080401 D02 L100402 D03 L120403 D04 L140404 D05 L160405 D06 L160406 D07 L200407 D08 L200408 D09 L240409 D10 L250410 D11 L260411 D12 L270412 D77 L120377 D78 L120378 D88 L160388 DCOMPUTATIONAL R40 PFI J12 PSEQ J1208SEQUENCE PSEQUENCE J12 PREP J1202FI PREPEAT J1202FI PSELECTCASE J12 PSELECT J12 PPOSIT J12 PASSUME J1205POSIT PADMIT J12 PITERWHILE J1205WHILE PITERUNTIL J1205UNTIL PQUIT J12 PSREAD J12 PSWRITE J12 PRESET J12 PBEGIN J12 PROC J12 IPROC J12 RPROC J12 PPROCBEGIN J12 PPROCEND J12 EPROC PEPROC J12 PRCALL J12 PCASE J12 PUNLESS J12 POTHERWISE J12 PPSVNAME J12 PPSVTHREAD J12